home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
prtgrid
/
udemo.dfm
/
udemo.txt
Wrap
Text File
|
1996-04-08
|
3KB
|
119 lines
object Form1: TForm1
Left = 201
Top = 197
Width = 522
Height = 375
Caption = 'DBGRID PRINTER COMPONENT DEMO VERSION 2.0 '
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 16
object DBGrid1: TDBGrid
Left = 16
Top = 12
Width = 485
Height = 197
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'System'
TitleFont.Style = []
end
object Button1: TButton
Left = 27
Top = 304
Width = 89
Height = 37
Caption = '&Print'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 139
Top = 304
Width = 166
Height = 37
Caption = '&Print With Dialog'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 320
Top = 304
Width = 181
Height = 37
Caption = '&Print To File'
TabOrder = 3
OnClick = Button3Click
end
object RadioGroup1: TRadioGroup
Left = 140
Top = 220
Width = 129
Height = 73
Caption = '&Printer orientation'
ItemIndex = 0
Items.Strings = (
'&Portrait'
'&Landscape')
TabOrder = 4
OnClick = RadioGroup1Click
end
object Table1: TTable
DatabaseName = 'DBDEMOS'
ReadOnly = True
TableName = 'CUSTOMER.DB'
Left = 24
Top = 240
end
object DataSource1: TDataSource
DataSet = Table1
Left = 56
Top = 240
end
object PrintGrid1: TPrintGrid
LeftMargin = 30
TopMargin = 40
RightMargin = 30
BottomMargin = 40
TitleFont.Color = clBlack
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold]
HeaderFont.Color = clBlack
HeaderFont.Height = -16
HeaderFont.Name = 'Arial'
HeaderFont.Style = [fsBold]
LinesFont.Color = clBlack
LinesFont.Height = -13
LinesFont.Name = 'Arial'
LinesFont.Style = []
DBGrid = DBGrid1
PrintMgrTitle = 'PrintGrid1'
HeaderAlignment = taCenter
PrintToFile = False
FromPage = 1
ToPage = 1000
Border = True
ColLines = True
RowLines = False
HorizontalGap = 4
VerticalGapPct = 20
PageNumberPos = pnTopRight
PageNumberLabel = 'Page: '
DatePos = pnTopLeft
Left = 88
Top = 240
end
end